﻿Class Window1
  Private Sub onloaded(
      ByVal sender As Object,
      ByVal e As RoutedEventArgs) _
      Handles MyBase.Loaded
    Dim f As New Form1
    f.Show()
  End Sub
End Class
